*********************************************************************************
* Supplemental Material, Table S6.4-6											*
*********************************************************************************

* Project: 	No Zeitenwende (yet)
* Authors: 	Matthias Mader
* Date:		March 2023	

* Data: GLES panel survey, W1-W22

*********************************************************************************

*** Setup

	clear
	set more off            						// Disable partitioned output
	set dp period									// Use comma instead of dot for decimals
	set linesize 80         						// Line size limit to make output more readable
	macro drop _all         						// clear all macros
	set scheme plotplainblind, permanent				// set graph scheme, e.g., cleanplots, plottig plotplainblind, burd3, s1mono
	graph set window fontface "Times New Roman"		// set font in graphs | "Arial" | "Times New Roman"


*** Table S6.4

	use "DATA_clean.dta", clear

	reg spending_diff_2217 ib8.w17_pi pint_17 i.east age i.spending_17
	estimate store m1
	reg annexcrimea_diff_228 ib8.w8_pi pint_8 i.east age i.annexcrimea_8 
	estimates store m2
	reg relationputin_diff_222 ib8.w2_pi pint_2 i.east age i.relationputin_2 
	estimates store m3
	reg confrRUS_diff_2216 ib8.w16_pi pint_16 i.east age i.confrRUS_16 
	estimates store m4
	reg confrCHI_diff_2216 ib8.w16_pi pint_16 i.east age i.confrCHI_16 
	estimates store m5
	reg protectEUborders_diff_2221 ib8.w21_pi pint_21 i.east age i.protectEUborders_21  
	estimates store m6


	esttab m1 m2 m3 m4 m5 m6 using "TableS6_4.rtf", replace ///
		b(2) se(2) nogaps compress nobaselevels varwidth(15) ///
		modelwidth(6) nonumbers ///
		title("Table S6.4: Regressions of difference variables (policy attitudes) on subgroup variables") ///
		mtitles("Military spending" "Annexation Crimea" "Relations Putin" "Conf. RUS policy" "Conf. CHI policy" "EU borders") ///
		drop() ///
		coeflabels(1.w17_pi "PI: SPD" ///
					2.w17_pi "PI: Greens" ///
					3.w17_pi "PI: FDP" ///
					4.w17_pi "PI: CDU/CSU" ///
					5.w17_pi "PI: AfD" ///
					6.w17_pi "PI: The Left" ///
					7.w17_pi "PI: None" ///
					pint_17 "Political interest" ///
					1.east "East German" ///
					age "Age" ///
					2.spending_17 "Prior attitude: 2/5" ///
					3.spending_17 "Prior attitude: 2/5" ///
					4.spending_17 "Prior attitude: 4/5" ///
					5.spending_17 "Prior attitude: 5/5" ///
					_cons "Constant")  ///
		 stats(r2 N)


*** Table S6.5

	use "DATA_clean.dta", clear

	reg feelRUS_diff_2221 ib8.w21_pi pint_21 i.east age i.feelRUS_21 
	estimates store m7
	reg feelUS_diff_2221 ib8.w21_pi pint_21 i.east age i.feelUS_21
	estimates store m8
	reg feelCHI_diff_2221 ib8.w21_pi pint_21 i.east age i.feelCHI_21  
	estimates store m9

	esttab m7 m8 m9 using "TableS6_5.rtf", replace ///
		b(2) se(2) nogaps compress nobaselevels varwidth(15) ///
		modelwidth(6) nonumbers ///
		title("Table S6.5: Regressions of difference variables (views of foreign actors) on subgroup variables") ///
		mtitles("Fav. views RUS" "Fav. views USA"  "Fav. views CHI") ///
		drop() ///
		coeflabels(1.w21_pi "PI: SPD" ///
					2.w21_pi "PI: Greens" ///
					3.w21_pi "PI: FDP" ///
					4.w21_pi "PI: CDU/CSU" ///
					5.w21_pi "PI: AfD" ///
					6.w21_pi "PI: The Left" ///
					7.w21_pi "PI: None" ///
					pint_21 "Political interest" ///
					1.east "East German" ///
					age "Age" ///
					2.feelRUS_21 "Prior attitude: 2/11" ///
					3.feelRUS_21 "Prior attitude: 2/11" ///
					4.feelRUS_21 "Prior attitude: 4/11" ///
					5.feelRUS_21 "Prior attitude: 5/11" ///
					6.feelRUS_21 "Prior attitude: 6/11" ///
					7.feelRUS_21 "Prior attitude: 7/11" ///
					8.feelRUS_21 "Prior attitude: 8/11" ///
					9.feelRUS_21 "Prior attitude: 9/11" ///
					10.feelRUS_21 "Prior attitude: 10/11" ///
					11.feelRUS_21 "Prior attitude: 11/11" ///
					_cons "Constant")  ///
		 stats(r2 N)


*** Table S6.7

	use "DATA_clean.dta", clear

	reg mili_diff_2221 ib8.w21_pi pint_21 i.east age c.mili_21 
	estimates store m8
	reg multi_diff_2221 ib8.w21_pi pint_21 i.east age c.multi_21 
	estimates store m9
	reg iso_diff_2221 ib8.w21_pi pint_21 i.east age c.iso_21 
	estimates store m10
	reg atla_diff_2221 ib8.w21_pi pint_21 i.east age c.atla_21 
	estimates store m11

	esttab m8 m9 m10 m11 using "TableS6_6.rtf", replace ///
		b(2) se(2) nogaps compress nobaselevels varwidth(15) ///
		modelwidth(6) nonumbers ///
		title("Table S6.6: Regressions of difference variables (postures) on subgroup variables") ///
		mtitles("Use of force" "Multilateralism" "Isolationism" "Atlanticism") ///
		drop() ///
		coeflabels(1.w21_pi "PI: SPD" ///
					2.w21_pi "PI: Greens" ///
					3.w21_pi "PI: FDP" ///
					4.w21_pi "PI: CDU/CSU" ///
					5.w21_pi "PI: AfD" ///
					6.w21_pi "PI: The Left" ///
					7.w21_pi "PI: None" ///
					pint_21 "Political interest" ///
					1.east "East German" ///
					age "Age" ///
					mili_21 "Prior attitude" ///
					_cons "Constant")  ///
		 stats(r2 N)
